إظهار او إخفاء الماوس
أضف التالي في موديل
Public Declare Function ShowCursor& Lib "user32" (ByVal lShow As Long)
ثم اكتب التالي حسب المكان الذي تحدد ولنفرض زر امر
اضف زر امر واكتب التالي في حدث الضغط علية لاخفاء المؤشر
Private Sub
Command1_Click()
ShowCursor (False) 'لاخفاء الماوس
End Sub
واخر لاظهار المؤشر
Private Sub
Command2_Click()
ShowCursor (True) ' لاظهار الماوس
End
Sub